
Partial Class Reenviar
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'carregar el fitxer i imprimir-ho
        Dim fitxers As New EsportsLn.Fitxers
        Dim s As String = Server.MapPath("App_Data")
        Dim tots As String = fitxers.LleguirFitxer(s)
        My.Response.ContentType = "text/plain"
        'My.Response.ContentType = "application/ms-excel"
        My.Response.Write(s)
        My.Response.Write(tots)
        My.Response.Flush()
        Response.End()
    End Sub
End Class
